home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / comm / tcp / Amster-main.lha / Amster_Install / Rexx / TMLG.rexx < prev    next >
OS/2 REXX Batch file  |  2000-10-18  |  661b  |  32 lines
  1. /*
  2. ** $VER: TMLG 1.1 (13.10.2000)
  3. ** © 2000 by Jacob Laursen <laursen@myself.com>
  4. **
  5. ** Set up your player path below and some of these events in Amster:
  6. **
  7. ** Download finished
  8. ** Double-clicking library file
  9. ** Double-clicking download file
  10. ** MP3 player
  11. **
  12. ** Command:  RexxC:RX Apps:Comm/Amster/Rexx/TMLG.rexx PLAY "%f"
  13. **
  14. */
  15.  
  16. PlayerPath = 'Apps:Sound/Players/TMLG/TheMpegaLibraryGui'
  17.  
  18. /* No user-serviceable parts below */
  19.  
  20. parse arg mode' 'filename
  21. options results
  22.  
  23. if ~show('P','TMLG.1') then address command 'Run <>NIL: 'PlayerPath
  24.  
  25. do while ~show('P','TMLG.1')
  26.    call delay(50)
  27. end
  28.  
  29. address 'TMLG.1'
  30.  
  31. if upper(mode) = 'PLAY' then 'PLAY NAME 'filename
  32.